home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / lib / mathlib / libblas / src_original / xerbla.f < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.1 KB  |  44 lines
  1.       SUBROUTINE XERBLA( SRNAME, INFO )
  2. *
  3. *  -- LAPACK auxiliary routine --
  4. *     Argonne National Laboratory
  5. *     November 16, 1988
  6. *
  7. *     .. Scalar Arguments ..
  8.       CHARACTER*6        SRNAME
  9.       INTEGER            INFO
  10. *     ..
  11. *
  12. *  Purpose
  13. *  =======
  14. *
  15. *     XERBLA  is an error handler for the LAPACK routines.
  16. *     It is called by an LAPACK routine if an input parameter has an
  17. *     invalid value.  A message is printed and execution stops.
  18. *
  19. *     Installers may consider modifying the STOP statement in order to
  20. *     call system-specific exception-handling facilities.
  21. *
  22. *  Parameters
  23. *  ==========
  24. *
  25. *  SRNAME - CHARACTER*6.
  26. *           On entry, SRNAME specifies the name of the routine which
  27. *           called XERBLA.
  28. *
  29. *  INFO   - INTEGER.
  30. *           On entry, INFO specifies the position of the invalid
  31. *           parameter in the parameter-list of the calling routine.
  32. *
  33. *
  34.       WRITE( *, FMT = 9999 )SRNAME, INFO
  35. *
  36.       STOP
  37. *
  38.  9999 FORMAT( ' ** On entry to ', A6, ' parameter number ', I2, ' had ',
  39.      $      'an illegal value' )
  40. *
  41. *     End of XERBLA
  42. *
  43.       END
  44.